home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / EXTERN / TERMCRUN.D < prev   
Encoding:
Modula Definition  |  1989-08-22  |  1.7 KB  |  27 lines
  1.  
  2.         (*  TermCruncher -- Routinen zur Verarbeitung von mathe-  *
  3.          *                  matischen Ausdrücken und deren Be-    *
  4.          *                  rechnung.                             *
  5.          *                                                        *
  6.          *  Version 0.2     V#0009                                *
  7.          *                                                        *
  8.          *  Written by Manuel Chakravarty     Created 07.08.1987  *)
  9.          
  10. DEFINITION MODULE TermCruncher;
  11.  
  12. TYPE    TermTree;       (* Baumstruktur die einen geparsten Term speichert *)
  13.         CalcError       =(noError,divisionByZero,negSqrt,lnOfZero,arOutOfRange);
  14.  
  15. PROCEDURE ParseTerm(termStr:ARRAY OF CHAR;xAllowed,yAllowed,zAllowed:BOOLEAN;
  16.                     VAR term:TermTree;VAR error:INTEGER);
  17.                     
  18. PROCEDURE CalcTerm(term:TermTree;x,y,z:REAL;VAR result:REAL;
  19.                    VAR error:CalcError);
  20.  
  21. PROCEDURE VanishTree(VAR tree:TermTree);
  22.  
  23. PROCEDURE ReStringTerm(term:TermTree;VAR termStr:ARRAY OF CHAR);
  24.  
  25. END TermCruncher.
  26. (* $FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$000001FC$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7A$FFFA6F7Aü$000003ACT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$000002B3$000002A4$000002B3$00000285$000003AC$00000159$00000442$00000000$0000042D$000002B3$00000202$0000042D$000003FF$0000042B$00000285$0000012DöÇü*)
  27.